|
2000
|
How can I change the visual appearance of the filter bar's close button (solid)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,255)
.EndUpdate()
End With
|
|
1999
|
Is it possible to prevent definitely showing the filter bar's close button
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exFooterFilterBarButton,-1)
.EndUpdate()
End With
|
|
1998
|
Is it possible to show the close button only if there is a filter applied
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.EndUpdate()
End With
|
|
1997
|
The control's filter bar is not closed once I click the close button (toggle)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
.ItemDivider(h) = 0
.CellValue(h,0) = "<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus."
.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
End With
.FilterBarCaption = "`<r><fgcolor=808080>` + value"
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarToggle Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1996
|
How can I display the control's filter on a single line
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1995
|
How can I display the control's filter on a single line (prompt-combined)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "`<r>` + value"
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarCompact Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarSingleLine Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item A|Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1994
|
How can I get the number of results after a filter is applied
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
With AxG2antt1
.ClearFilter()
End With
End Sub
' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
With AxG2antt1
Debug.Print( "Items.MatchItemCount" )
Debug.Print( .Items.MatchItemCount )
Debug.Print( .FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",.Items.MatchItemCount) )
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "Item"
.EndUpdate()
End With
|
|
1993
|
How can I programmatically clear the control's filter
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
With AxG2antt1
.ClearFilter()
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "B"
.EndUpdate()
End With
|
|
1992
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptPattern = "B"
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible Or EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1991
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "B"
.EndUpdate()
End With
|
|
1990
|
Is it possible to prevent closing the control's filter bar, so it is always shown
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
.Items.AddBar(e.item,"Task",#12/4/2017#,#12/14/2017#)
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.LevelCount = 2
.FirstVisibleDate = #12/2/2017#
.PaneWidth(False) = 256
End With
.Columns.Add("Item").DisplayFilterButton = True
With .Columns.Add("Pos")
.AllowSizing = False
.AllowSort = False
.Width = 32
.FormatColumn = "1 apos ``"
.Position = 0
End With
With .Items
.AddItem("Item A")
.AddItem("Item B")
.AddItem("Item C")
End With
.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
.FilterBarPromptVisible = EXG2ANTTLib.FilterBarVisibleEnum.exFilterBarVisible
With .Columns.Item(0)
.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Item B"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
1989
|
What are the options to align the percent caption
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Clip")
.ScrollBySingleLine = True
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
With .Chart
.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
.FirstVisibleDate = #12/26/2000#
.LevelCount = 2
.PaneWidth(False) = 256
With .Bars.Add("Task%Progress")
.Shortcut = "Task"
.Pattern = EXG2ANTTLib.PatternEnum.exPatternBox
.Color = RGB(164,164,164)
.StartColor = RGB(240,240,240)
.EndColor = .StartColor
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.Height = 15
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<sha ;;0>%p%"
End With
End With
With .Items
h = .AddItem("no clip, (0-2)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 2
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 1
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 0
h = .AddItem("clip, inside (3-5)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 5
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 4
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 3
h = .AddItem("hide on min width, clip if not fit, inside (6-8)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 8
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 7
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 6
h = .AddItem("hide if not fit, no clip, inside (9-11)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 11
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 10
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 9
h = .AddItem("no clip, inside, outside (12-14)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 14
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 13
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 12
h = .AddItem("no clip, outside (16-18)")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 18
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K2")
.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 17
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K3")
.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarAlignPercentCaption) = 16
End With
.EndUpdate()
End With
|
|
1988
|
Is it possible to determine whether a bar is in the current display area
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
With AxG2antt1
.Refresh()
End With
End Sub
' DateChange event - Occurs when the first visible date is changed.
Private Sub AxG2antt1_DateChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.DateChange
With AxG2antt1
.Refresh()
End With
End Sub
' FormatColumn event - Fired when a cell requires to format its caption.
Private Sub AxG2antt1_FormatColumn(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_FormatColumnEvent) Handles AxG2antt1.FormatColumn
Dim e,l,r,s
With AxG2antt1
s = .Items.ItemBar(e.item,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarStart)
e = .Items.ItemBar(e.item,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd)
l = .FormatABC("A < B",e,.Chart.FirstVisibleDate)
r = .FormatABC("A > B",s,.Chart.DateFromPoint(1,-1))
e.value = .FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r)
End With
End Sub
' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxG2antt1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.LayoutChanged
With AxG2antt1
.Refresh()
End With
End Sub
With AxG2antt1
.BeginUpdate()
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.Columns.Add("Tasks")
With .Columns.Add("Visible")
.FireFormatColumn = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
End With
With .Chart
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
.OverviewHeight = 64
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#,"A")
.AddBar(.AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#,"A")
.AddBar(.AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#,"A")
.SelectItem(.FocusItem) = True
End With
.EndUpdate()
End With
|
|
1987
|
How can I ensure that the bar fits the control's client area
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
Dim h,k,s
With AxG2antt1
h = .Items.FocusItem
k = .Items.FirstItemBar(h)
s = .FormatABC("(A+B)/2",.Items.ItemBar(h,k,EXG2ANTTLib.ItemBarPropertyEnum.exBarStart),.Items.ItemBar(h,k,EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd))
.Chart.ScrollTo(s,1)
End With
End Sub
With AxG2antt1
.BeginUpdate()
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/8/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2018#,#8/10/2018#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2019#,#8/12/2019#)
.SelectItem(.FocusItem) = True
End With
.EndUpdate()
End With
|
|
1986
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
With AxG2antt1
.Columns.Add("ColumnName").Caption = "NewName"
.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
End With
|
|
1985
|
How can I display the bar's duration in days, minutes, and so so on
Dim h
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Tasks").AllowSizing = False
With .Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
.FormatColumn = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=i" & _
"nt((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(" & _
"=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0" & _
":=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #12/30/2001#
.LevelCount = 2
.PaneWidth(False) = 196
.Bars.Add("Task:Split").Shortcut = "Task"
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
.OverviewHeight = 64
.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exSecond
.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#12/31/2001#,#1/7/2002#,"A")
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/1/2002#,#2/14/2002#,"A")
h = .AddItem("Task 3")
.AddBar(h,"Task",#1/2/2002 10:00:00 AM#,#1/2/2002 0:00:00 PM#,"A")
h = .AddItem("Task 4")
.AddBar(h,"Task",#1/3/2002#,#1/4/2002 8:30:30 AM#,"A")
End With
.EndUpdate()
End With
|
|
1984
|
How can I change the background color for checked items (EBN color, frame)
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
.Refresh()
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.DefaultItemHeight = 22
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .VisualAppearance
.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" & _
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" & _
"FqXFSLVxNBKAQEBA=")
.Add(1,"CP:2 1 1 -1 -1")
End With
With .ConditionalFormats.Add("%CS0 = 1")
.BackColor = &H1000000
.ChartBackColor = .BackColor
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1983
|
How can I change the caption of the checked items (sample 2)
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 256
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1982
|
How can I change the caption of the checked items (sample 1)
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 256
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1981
|
How can I change the font for the checked items
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
.Refresh()
End With
End Sub
Dim f,h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.DefaultItemHeight = 22
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
f = CreateObject("StdFont")
With f
.Name = AxG2antt1.Font.Name
.Size = 12
End With
.Font = f
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 196
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1980
|
How can I bold the checked items
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
.Refresh()
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.Bold = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1979
|
How can I change the foreground color for checked items
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
.Refresh()
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.ForeColor = RGB(255,128,128)
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1978
|
How can I change the background color for checked items (solid color)
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
.Refresh()
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.BackColor = RGB(255,128,128)
.ChartBackColor = .BackColor
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1977
|
How can I change the color for checked Task bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .ConditionalFormats.Add("%CS0 = 1")
.ApplyToBars = "Task,Summary"
.BarColor = RGB(255,0,0)
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1976
|
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value
Dim h
With AxG2antt1
.BeginUpdate()
With .Columns
.Add("Tasks").AllowSizing = False
With .Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
.FormatColumn = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((" & _
"1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
.PaneWidth(False) = 196
.Bars.Add("Task:Split").Shortcut = "Task"
.FirstVisibleDate = #1/3/2002#
.LevelCount = 2
.Level(0).Label = "<%ddd%>"
.Level(1).Label = "<%hh%>"
.NonworkingHours = 16761855
.ShowNonworkingUnits = False
.ShowNonworkingUnits = False
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
.OverviewHeight = 64
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/3/2002#,#1/4/2002#,"A")
.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
End With
With .Chart
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.ScrollTo(.FirstVisibleDate,1)
End With
.EndUpdate()
End With
|
|
1975
|
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.SelBackColor = RGB(0,0,0)
.SelForeColor = RGB(255,255,255)
.Chart.PaneWidth(True) = 0
With .Columns.Add("Edit").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
With .Items
.AddItem("")
.AddItem("Just a text")
.AddItem("")
End With
.EndUpdate()
End With
|
|
1974
|
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black
With AxG2antt1
.BeginUpdate()
.SelBackColor = RGB(0,0,0)
.SelForeColor = RGB(255,255,255)
.Chart.PaneWidth(True) = 0
With .Columns.Add("DropDown").Editor
.AddItem(1,"This is just the first item")
.AddItem(2,"This is just the second item")
.AddItem(3,"This is just the third item")
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownType
.Mask = ";;;rich"
End With
With .Items
.AddItem("")
.AddItem("Just a text")
.AddItem("")
End With
.EndUpdate()
End With
|
|
1973
|
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem
' OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
Private Sub AxG2antt1_OverviewZoom(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.OverviewZoom
With AxG2antt1
.Chart.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exDay
End With
End Sub
Dim h1
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Columns.Add("Effort")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 21
.Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
With .Chart
.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
.OverviewZoomCaption = "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exHalfYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exQuarterYear) = ""
.Label(EXG2ANTTLib.UnitEnum.exThirdMonth) = ""
.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
.OverviewZoomUnit = 64
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(False) = 96
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 128
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAll
With .Bars.Item("Task")
.HistogramPattern = .Pattern
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
.HistogramCriticalValue = 3
.HistogramItems = -7
.HistogramGridLinesColor = RGB(192,192,192)
.HistogramRulerLinesColor = RGB(0,0,1)
End With
End With
With .Items
.AllowCellValueToItemBar = True
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#6/21/2005#,#6/23/2005#)
.CellValue(h1,1) = 4
h1 = .AddItem("Task 2")
.AddBar(h1,"Task",#6/24/2005#,#6/26/2005#)
.CellValue(h1,1) = 3
h1 = .AddItem("Task 3")
.AddBar(h1,"Task",#6/27/2005#,#6/29/2005#)
.CellValue(h1,1) = 2
h1 = .AddItem("Task 4")
.AddBar(h1,"Task",#6/30/2005#,#7/2/2005#)
.CellValue(h1,1) = 1
End With
.EndUpdate()
End With
|
|
1972
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
With AxG2antt1
Debug.Print( "BeforeExpandItem" )
Debug.Print( e.item )
Debug.Print( "ColumnFromPoint" )
Debug.Print( .get_ColumnFromPoint(-1,-1) )
Debug.Print( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." )
.Items.InsertItem(e.item,Nothing,"new child")
End With
End Sub
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns
.Add("Items").DisplayFilterButton = True
End With
With .Items
.ItemHasChildren(.InsertItem(Nothing,Nothing,"Group 1")) = True
.ItemHasChildren(.InsertItem(Nothing,Nothing,"Group 2")) = True
End With
.EndUpdate()
End With
|
|
1971
|
How do I change the drop down filter icon/button (black)
With AxG2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
End With
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,16777216)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exBackColorFilter,65536)
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exForeColorFilter,16777215)
.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarExclude,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
.HeaderAppearance = EXG2ANTTLib.AppearanceEnum.None2
.BackColorHeader = RGB(0,0,0)
.ForeColorHeader = RGB(255,255,255)
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisible
.BackColorLevelHeader = .BackColor
With .Columns.Add("Filter")
.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
.DisplayFilterButton = True
.AllowSort = False
.AllowDragging = False
End With
With .Chart
.PaneWidth(False) = 196
.LevelCount = 2
.BackColorLevelHeader = AxG2antt1.BackColorHeader
.ForeColorLevelHeader = AxG2antt1.ForeColorHeader
End With
With .Items
.AddItem("One")
.AddItem("Two")
.AddItem("Three")
End With
.EndUpdate()
End With
|
|
1970
|
How do I change the z-order of the bars (percent)
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
Dim b,c,hit,i
With AxG2antt1
b = .Chart.BarFromPoint(-1,-1)
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .Items.ItemBar(i,b,EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) )
End With
End Sub
Dim h1
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.DefaultItemHeight = 52
With .Chart
.LevelCount = 2
.FirstVisibleDate = #10/10/2017#
.PaneWidth(False) = 0
.NonworkingDays = 0
.MarkTodayColor = .BackColor
.Bars.Add("Task%Progress").Shortcut = "Task"
With .Bars.Copy("Task","T1")
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.25
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentColor) = .Color
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset) = 10
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<font ;6><b>%p%</b>"
End With
With .Bars.Copy("Task","T2")
.Height = 26
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 16
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.25
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentColor) = .Color
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarPercentCaptionFormat) = "<font ;6><b>%p%</b>"
End With
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"2")
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Over</b> Bar B"
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"1")
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Under</b> Bar A"
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"1")
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Under</b> Bar B"
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"2")
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Over</b> Bar A"
End With
.EndUpdate()
End With
|
|
1969
|
How do I change the z-order of the bars
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
Dim b,c,hit,i
With AxG2antt1
b = .Chart.BarFromPoint(-1,-1)
i = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .Items.ItemBar(i,b,EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) )
End With
End Sub
Dim h1
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
.DefaultItemHeight = 52
With .Chart
.LevelCount = 2
.FirstVisibleDate = #10/10/2017#
.PaneWidth(False) = 0
.NonworkingDays = 0
.MarkTodayColor = .BackColor
With .Bars.Copy("Task","T1")
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Bars.Copy("Task","T2")
.Height = 25
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarVAlignCaption) = 16
End With
End With
With .Items
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"2")
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Over</b> Bar B"
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"1")
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Under</b> Bar A"
h1 = .AddItem("Task")
.AddBar(h1,"T1",#10/15/2017#,#10/25/2017#,"1")
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar A"
.ItemBar(h1,"1",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar A <b>Under</b> Bar B"
.AddBar(h1,"T2",#10/18/2017#,#10/22/2017#,"2")
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Bar B"
.ItemBar(h1,"2",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Bar B <b>Over</b> Bar A"
End With
.EndUpdate()
End With
|
|
1968
|
How do I get the duration/working count of the bar (sample 6,excrd)
With AxG2antt1
.BeginUpdate()
.DefaultItemHeight = 48
.ShowFocusRect = False
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.BackColorLevelHeader = .BackColor
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #12/26/2001#
With .Bars.Add("Task:Split")
.Shortcut = "Task"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%263%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarOffset) = -12
End With
.ColumnsFormatLevel = "1,2/3"
End With
.Columns.Add("Tasks")
With .Columns.Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
.FormatColumn = "value + `d`"
End With
With .Columns.Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
.FormatColumn = "value + `w`"
End With
With .Columns.Add("Working-Period")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 263
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
.FormatColumn = "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/11/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
.AddBar(.AddItem("Task 3"),"Task",#12/31/2001#,#1/13/2002#)
End With
.EndUpdate()
End With
|
|
1967
|
How do I get the duration/working count of the bar (sample 5)
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
With AxG2antt1
With .Items
.ItemMaxHeight(e.item) = 64
End With
End With
End Sub
With AxG2antt1
.BeginUpdate()
.BackColorAlternate = RGB(240,240,240)
With .Chart
.PaneWidth(False) = 256
.LevelCount = 2
.FirstVisibleDate = #1/1/2002#
With .Bars.Add("Task:Split")
.Shortcut = "Task"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<%=%263%>"
End With
.ColumnsFormatLevel = "1,2"
.SelBackColor = AxG2antt1.SelBackColor
End With
With .Columns.Add("Task")
.AllowSizing = False
.Width = 48
End With
With .Columns.Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
End With
With .Columns.Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
End With
With .Columns.Add("Working-Period")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 263
.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/4/2002#,#1/16/2002#)
End With
.EndUpdate()
End With
|
|
1966
|
How do I get the duration/working count of the bar (sample 4)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #12/26/2001#
.Bars.Add("Task:Split").Shortcut = "Task"
.ColumnsFormatLevel = "1,2"
End With
.Columns.Add("Task").Width = 48
With .Columns.Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.LeftAlignment
.FormatColumn = "value + `d`"
End With
With .Columns.Add("Working")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
.Visible = False
.Alignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
.FormatColumn = "value + `w`"
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
End With
.EndUpdate()
End With
|
|
1965
|
How do I get the duration/working count of the bar (sample 3)
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
With AxG2antt1
With .Items
Debug.Print( .CellCaption(e.item,0) )
Debug.Print( "Working" )
Debug.Print( .ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarWorkingCount) )
Debug.Print( .CellCaption(e.item,0) )
Debug.Print( "Duration" )
Debug.Print( .ItemBar(e.item,e.key,EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) )
End With
End With
End Sub
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #12/26/2001#
.Bars.Add("Task:Split").Shortcut = "Task"
End With
.Columns.Add("Task").Width = 48
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
End With
.EndUpdate()
End With
|
|
1964
|
How do I get the duration/working count of the bar (sample 2)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 64
.LevelCount = 2
.FirstVisibleDate = #12/26/2001#
With .Bars.Add("Task:Split")
.Shortcut = "Task"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%258%>w"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaption) = "<%=%513%>d"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarExtraCaptionHAlign) = 16
End With
End With
.Columns.Add("Task").Width = 48
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
End With
.EndUpdate()
End With
|
|
1963
|
How do I get the duration/working count of the bar (sample 1)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 196
.LevelCount = 2
.FirstVisibleDate = #1/1/2002#
.Bars.Add("Task:Split").Shortcut = "Task"
End With
.Columns.Add("Task").Width = 48
.Columns.Add("Duration").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Columns.Add("Working").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 258
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#1/2/2002#,#1/12/2002#)
.AddBar(.AddItem("Task 2"),"Task",#1/3/2002#,#1/15/2002#)
End With
.EndUpdate()
End With
|
|
1962
|
How can I draw a solid frame around the the focusing item
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.DefaultItemHeight = 20
With .VisualAppearance
.RenderType = -1
.Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" & _
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" & _
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" & _
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" & _
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
End With
.ShowFocusRect = True
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,16777216)
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Chart.PaneWidth(True) = 1
With .Columns.Add("P1")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1961
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.DefaultItemHeight = 20
.ShowFocusRect = True
With .VisualAppearance
.RenderType = -1
.Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" & _
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" & _
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" & _
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" & _
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
.Add(3,"CP:2 -3 0 3 0")
End With
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,50397441)
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Chart.PaneWidth(True) = 1
With .Columns.Add("P1")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1960
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.ShowFocusRect = True
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" & _
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" & _
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" & _
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" & _
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" & _
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" & _
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" & _
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" & _
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" & _
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" & _
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" & _
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" & _
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" & _
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" & _
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" & _
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
.Add(3,"CP:2 -2 0 2 0")
End With
.GetOcx().SelBackColor = &H1000000
.SelForeColor = RGB(0,0,0)
.Chart.PaneWidth(True) = 1
.set_Background(EXG2ANTTLib.BackgroundPartEnum.exShowFocusRect,67043328)
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("P1")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1959
|
How can I display the start/end margins of bars, when cursor hovers it like a tooltip
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("exBarToolTip")
With .Chart
.PaneWidth(False) = 96
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
End With
With .Items
.AddBar(.AddItem("Bar.Def"),"Task",#1/2/2001#,#1/9/2001#,"K1")
.AddBar(.AddItem("Bar.Def"),"Task",#1/3/2001#,#1/10/2001#,"K1")
h = .AddItem("Items.ItemBar")
.AddBar(h,"Unknown",#1/4/2001#,#1/11/2001#,"K")
.ItemBar(h,"K",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "Start:<%=%1%><br>End:<%=%2%>"
End With
.EndUpdate()
End With
|
|
1958
|
Is it possible to define different kinds of summary bars with using the EBN files
Dim hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ
With AxG2antt1
.BeginUpdate()
With .VisualAppearance
.RenderType = -16777216
.Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwH" & _
"IERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6" & _
"STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKp" & _
"FHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQha" & _
"XQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
.Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQG" & _
"h+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKf" & _
"aZACj4arKejrRDCMAggI=")
End With
.Columns.Add("Task")
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
.Color = RGB(1,0,0)
End With
With .Bars.Item("Summary")
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
.Color = &H2000000
End With
End With
With .Items
hSummaryJ = .AddItem("Summary A")
.AddBar(hSummaryJ,"Summary",#1/2/2001#,#1/2/2001#,"J")
hTaskJ = .InsertItem(hSummaryJ,Nothing,"Task A.1")
.AddBar(hTaskJ,"Task",#1/2/2001#,#1/5/2001#,"J1")
hTaskJ = .InsertItem(hSummaryJ,Nothing,"Task A.2")
.AddBar(hTaskJ,"Task",#1/4/2001#,#1/8/2001#,"J2")
.DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
hSummaryK = .AddItem("Summary B")
.AddBar(hSummaryK,"Summary",#1/2/2001#,#1/2/2001#,"K")
hTaskK = .InsertItem(hSummaryK,Nothing,"Task B.1")
.AddBar(hTaskK,"Task",#1/2/2001#,#1/5/2001#,"K1")
hTaskK = .InsertItem(hSummaryK,Nothing,"Task B.2")
.AddBar(hTaskK,"Task",#1/4/2001#,#1/8/2001#,"K2")
.DefineSummaryBars(hSummaryK,"K",-1,"<*>")
.ItemBar(0,"<K*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
hSummaryZ = .AddItem("Summary B")
.AddBar(hSummaryZ,"Summary",#1/2/2001#,#1/2/2001#,"Z")
hTaskZ = .InsertItem(hSummaryZ,Nothing,"Task B.1")
.AddBar(hTaskZ,"Task",#1/2/2001#,#1/5/2001#,"Z1")
hTaskZ = .InsertItem(hSummaryZ,Nothing,"Task B.2")
.AddBar(hTaskZ,"Task",#1/4/2001#,#1/8/2001#,"Z2")
.DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
.ItemBar(hSummaryZ,"Z",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16842496
.ItemBar(0,"<Z1>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 50266112
.ItemBar(0,"<Z2>",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 33554176
.ExpandItem(0) = True
End With
.EndUpdate()
End With
|
|
1957
|
How can I display the week-number in ISO8601 format
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.FirstVisibleDate = #12/12/2007#
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.UnitScale = EXG2ANTTLib.UnitEnum.exWeek
.Level(0).FormatLabel = "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
.Level(1).FormatLabel = "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
.WeekNumberAs = EXG2ANTTLib.WeekNumberAsEnum.exISO8601WeekNumber
.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
End With
.EndUpdate()
End With
|
|
1956
|
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption
With AxG2antt1
.BeginUpdate()
.ColumnAutoResize = True
.Chart.PaneWidth(True) = 0
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exVLines
With .Columns
With .Add("Left")
.AllowSizing = False
.Width = 96
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.FormatColumn = "0 pos `A-Z`"
End With
With .Add("Center")
.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Alignment = .HeaderAlignment
.AllowSizing = False
.Width = 96
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.FormatColumn = "0 pos `A-Z`"
End With
With .Add("Right")
.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
.Alignment = .HeaderAlignment
.AllowSizing = False
.Width = 96
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.FormatColumn = "0 pos `A-Z`"
.Def(EXG2ANTTLib.DefColumnEnum.exCellDrawPartsOrder) = "caption,check,icon,icons,picture"
End With
.Add("")
End With
With .Items
.CellState(.AddItem("Item 1"),3) = 1
.CellState(.AddItem("Item 2"),2) = 1
.CellState(.AddItem("Item 3"),1) = 1
End With
.EndUpdate()
End With
|
|
1955
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
With AxG2antt1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
.Chart.PaneWidth(True) = 0
With .Columns
.Add("And others ...")
With .Add("")
.HTMLCaption = "First Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third Column"
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 2
End With
End With
With .Items
.CellState(.AddItem("Item 1"),3) = 1
.CellState(.AddItem("Item 2"),2) = 1
.CellState(.AddItem("Item 3"),1) = 1
End With
.EndUpdate()
End With
|
|
1954
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
With AxG2antt1
.BeginUpdate()
.HeaderHeight = 48
.HeaderSingleLine = False
.ColumnAutoResize = True
.Chart.PaneWidth(True) = 0
With .Columns
.Add("And others ...")
With .Add("First Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 0
End With
With .Add("Second Column")
.HeaderBold = True
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 1
End With
With .Add("Third Column")
.HeaderVertical = True
.Width = 36
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Def(EXG2ANTTLib.DefColumnEnum.exCellPaddingLeft) = 8
.Position = 2
End With
End With
With .Items
.CellState(.AddItem("Item 1"),3) = 1
.CellState(.AddItem("Item 2"),2) = 1
.CellState(.AddItem("Item 3"),1) = 1
End With
.EndUpdate()
End With
|
|
1953
|
Can I display the column's caption vertically oriented (method 2)
With AxG2antt1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
.Chart.PaneWidth(True) = 0
With .Columns
.Add("And others ...")
With .Add("")
.HTMLCaption = "First"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 0
End With
With .Add("")
.HTMLCaption = "<c><b>Second"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 1
End With
With .Add("")
.HTMLCaption = "<r>Third"
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 2
End With
End With
With .Items
.CellState(.AddItem("Item 1"),3) = 1
.CellState(.AddItem("Item 2"),2) = 1
.CellState(.AddItem("Item 3"),1) = 1
End With
.EndUpdate()
End With
|
|
1952
|
Can I display the column's caption vertically oriented (method 1)
With AxG2antt1
.BeginUpdate()
.HeaderHeight = 48
.ColumnAutoResize = True
.Chart.PaneWidth(True) = 0
With .Columns
.Add("And others ...")
With .Add("First")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 0
End With
With .Add("Second")
.HeaderBold = True
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 1
End With
With .Add("Third")
.HeaderVertical = True
.Width = 20
.AllowSizing = False
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Position = 2
End With
End With
With .Items
.CellState(.AddItem("Item 1"),3) = 1
.CellState(.AddItem("Item 2"),2) = 1
.CellState(.AddItem("Item 3"),1) = 1
End With
.EndUpdate()
End With
|
|
1951
|
How can I resize all task-bars 0-length
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) = "value + 1"
End With
.EndUpdate()
End With
|
|
1950
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Columns.Add("Duration")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
.Visible = False
End With
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .ConditionalFormats.Add("%1 = 0")
.Bold = True
.BackColor = RGB(190,190,190)
.ChartBackColor = .BackColor
End With
With .Items
.AllowCellValueToItemBar = True
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
End With
.EndUpdate()
End With
|
|
1949
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`zero-length`"
End With
.EndUpdate()
End With
|
|
1948
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExt) = "`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`"
.ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackgroundExtInflate) = "`-4,-4,4,4`"
End With
.EndUpdate()
End With
|
|
1947
|
How can I find how many tasks/bars of 0-length (zero,empty) do I have
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/3/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/5/2017#)
Debug.Print( .ItemBarEx("itembar(513) = 0",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
|
1946
|
How can I remove all bars from selected items
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = RGB(240,240,240)
With .Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Task-Diff"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Bars.Copy("Task","Task-Diff")
.Height = 4
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
.SelectItem(h) = True
h = .AddItem("Task 3")
.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
.SelectItem(h) = True
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
Debug.Print( "Bars before remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.ItemBarEx("itemisselected",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
.RemoveBar(0,"<toberemove*>")
Debug.Print( "Bars after remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
|
1945
|
How can I remove task bars from selected items
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = RGB(240,240,240)
With .Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Task-Diff"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Bars.Copy("Task","Task-Diff")
.Height = 4
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
.SelectItem(h) = True
h = .AddItem("Task 3")
.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
.SelectItem(h) = True
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
Debug.Print( "Bars before remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.ItemBarEx("itemisselected and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
.RemoveBar(0,"<toberemove*>")
Debug.Print( "Bars after remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
|
1944
|
How can I change the pattern for some bars only
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
.CellState(h,0) = 1
h = .AddItem("Task 3")
.AddBar(h,"Task",#8/4/2017#,#8/13/2017#)
.CellState(h,0) = 1
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx("cellstate(0)",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 6
End With
.EndUpdate()
End With
|
|
1943
|
How do I apply the same effort to all bars
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
.HistogramVisible = True
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 2
End With
.EndUpdate()
End With
|
|
1942
|
How do I apply the same percent to all bars
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Add("Task%Progress")
.Shortcut = "Task"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarShowPercentCaption) = True
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarPercent) = 0.5
End With
.EndUpdate()
End With
|
|
1941
|
How can I set the same duration for all bars
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarDuration) = 4
End With
.EndUpdate()
End With
|
|
1940
|
How do I move all bars to end at the same date-time
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarMoveEnd) = "#8/15/2017#"
End With
.EndUpdate()
End With
|
|
1939
|
How do I move all bars to start at the same date-time
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarMoveStart) = "#8/2/2017#"
End With
.EndUpdate()
End With
|
|
1938
|
How do I apply a new color for some bars, while others should be shown with a different color
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = RGB(240,240,240)
With .Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Task-Diff"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Bars.Copy("Task","Task-Diff")
.Height = 4
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
h = .AddItem("Task 3")
.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = "cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00"
End With
.EndUpdate()
End With
|
|
1937
|
How do I hide some bars, and show others
Dim h
With AxG2antt1
.BeginUpdate()
.SingleSel = False
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
.SelBackColor = RGB(240,240,240)
With .Bars.Item("Task")
.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.OverlaidGroup = "Task,Task-Diff"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
End With
With .Bars.Copy("Task","Task-Diff")
.Height = 4
.Color = RGB(255,0,0)
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<font ;6><%=%0%>"
.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
End With
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#8/3/2017#,#8/9/2017#)
.SelectItem(h) = True
h = .AddItem("Task 3")
.AddBar(h,"Task",#8/4/2017#,#8/13/2017#,"")
.AddBar(h,"Task-Diff",#8/5/2017#,#8/14/2017#,"P")
.SelectItem(h) = True
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
.ItemBarEx("-1",EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "itembar(0) = `Task` ? 0 : 100"
End With
.EndUpdate()
End With
|
|
1936
|
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria
With AxG2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#8/2/2017#,#8/6/2017#)
.AddBar(.AddItem("Task 2"),"Task",#8/3/2017#,#8/9/2017#)
.AddBar(.AddItem("Task 3"),"Task",#8/4/2017#,#8/13/2017#)
.AddBar(.AddItem("Task 4"),"Task",#8/5/2017#,#8/16/2017#)
Debug.Print( "Bars before remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.ItemBarEx("cellcaption(0) like `*2 *3`",EXG2ANTTLib.ItemBarPropertyEnum.exBarKey) = "`toberemove` + value "
.RemoveBar(0,"<toberemove*>")
Debug.Print( "Bars after remove: " )
Debug.Print( .ItemBar(0,"<*>",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
|
1935
|
Is it possible to automatically color the bar being checked
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
With .Chart
.LevelCount = 2
.PaneWidth(False) = 256
.FirstVisibleDate = #1/1/2017#
End With
With .ConditionalFormats.Add("%CS0","check")
.Bold = True
.ApplyToBars = "Task"
.BarColor = RGB(0,0,1)
End With
With .Columns.Add("Items")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Width = 256
End With
.Columns.Add(AxG2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = AxG2antt1.ConditionalFormats.Item("check").Expression
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2017#,#1/12/2017#)
h = .AddItem("Item 2")
.AddBar(h,"Task",#1/3/2017#,#1/13/2017#)
.CellState(h,0) = 1
h = .AddItem("Item 3")
.AddBar(h,"Task",#1/4/2017#,#1/14/2017#)
.CellState(h,0) = 1
End With
.EndUpdate()
End With
|
|
1934
|
How do I automatically bold items being checked
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub
With AxG2antt1
.BeginUpdate()
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.Chart.PaneWidth(True) = 0
With .ConditionalFormats.Add("%CS0","check")
.Bold = True
End With
.Columns.Add("Items").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.Columns.Add(AxG2antt1.ConditionalFormats.Item("check").Expression).FormatColumn = AxG2antt1.ConditionalFormats.Item("check").Expression
With .Items
.AddItem("Item 1")
.CellState(.AddItem("Item 2"),0) = 1
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
1933
|
Can I display the radio-button with a solid color
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.set_RadioImage(False,32699122)
.set_RadioImage(True,16777216)
.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasRadioButton) = True
With .Items
.AddItem("Radio 1")
.CellState(.AddItem("Radio 2"),0) = 1
.AddItem("Radio 1")
End With
.EndUpdate()
End With
|
|
1932
|
Can I display the check-box with a solid color
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Unchecked,32699122)
.set_CheckImage(EXG2ANTTLib.CheckStateEnum.Checked,16777216)
.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
With .Items
.AddItem("Check 1")
.CellState(.AddItem("Check 2"),0) = 1
.AddItem("Check 3")
End With
.EndUpdate()
End With
|
|
1931
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
End Sub
Dim h
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exGroupLinesInsideLeaf
.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
.Chart.PaneWidth(True) = 0
With .Columns.Add("Items")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
With .Columns.Add("Format")
.FormatColumn = "%CS0"
.Caption = .FormatColumn
.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
End With
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Item 1")
.CellState(.InsertItem(h,Nothing,"Item 2"),0) = 1
.CellState(.InsertItem(h,Nothing,"Item 3"),0) = 1
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1930
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.Columns.Add("Items")
With .Columns.Add("Format")
.FormatColumn = "%CD0"
.Caption = .FormatColumn
.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
End With
With .Items
.CellData(.AddItem("Item 1"),0) = 1234
.CellData(.AddItem("Item 2"),0) = "this is just an user data"
.CellData(.AddItem("Item 3"),0) = #1/1/2001#
End With
.EndUpdate()
End With
|
|
1929
|
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
With .Columns.Add("Items")
With .Editor
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"Item 1")
.AddItem(2,"Item 2")
.AddItem(3,"Item 3")
End With
End With
With .Columns.Add("Format")
.FormatColumn = "%0"
.Caption = .FormatColumn
.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
.AllowSizing = False
End With
With .Columns.Add("Format")
.FormatColumn = "%C0"
.Caption = .FormatColumn
.Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor) = 8421504
.Def(EXG2ANTTLib.DefColumnEnum.exHeaderForeColor) = .Def(EXG2ANTTLib.DefColumnEnum.exCellForeColor)
.AllowSizing = False
End With
With .Items
.AddItem(1)
.CellValue(.AddItem(0),0) = 2
.AddItem(2)
End With
.EndUpdate()
End With
|
|
1928
|
How can I use the ShowNonworkingHours property (hide the non-working hours)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exHour
.NonworkingHours = 16253183
.ShowNonworkingHours = False
.ShowNonworkingUnits = False
End With
.EndUpdate()
End With
|
|
1927
|
How can I use the ShowNonworkingDates property (hide the non-working days)
With AxG2antt1
.BeginUpdate()
With .Chart
.PaneWidth(False) = 0
.LevelCount = 2
.UnitScale = EXG2ANTTLib.UnitEnum.exDay
.ShowNonworkingDates = False
.ShowNonworkingUnits = False
End With
.EndUpdate()
End With
|
|
1926
|
How can I show/hide bars once the user checks or un-checks a column
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
With .Items
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "cellstate(0) = 1 ? 0 : 100"
End With
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent) = "cellstate(0) = 1 ? 0 : 100"
End With
.EndUpdate()
End With
|
|
1925
|
How can I change the color for all Task bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
End With
.EndUpdate()
End With
|
|
1924
|
Is it possible to automatically select bars only when user selects a new item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
With AxG2antt1
With .Items
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = "itemisselected"
End With
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Tasks")
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1923
|
Is it possible to automatically select bars only when the user clicks the column's checkbox
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
With AxG2antt1
With .Items
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = "cellstate(0) = 1"
End With
End With
End Sub
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
1922
|
How do I select all bars on leaf items
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("itemlevel = 1",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
End With
.EndUpdate()
End With
|
|
1921
|
How can I change the caption for all checked Task bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("(cellstate(0) = 1) and (itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
End With
.EndUpdate()
End With
|
|
1920
|
How can I change the caption for all Task bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
End With
.EndUpdate()
End With
|
|
1919
|
How can I change the caption for all bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "`new caption`"
End With
.EndUpdate()
End With
|
|
1918
|
How can I move all Task bars to end at the same date time
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = "#8/14/2017# - itembar(2)"
End With
.EndUpdate()
End With
|
|
1917
|
How can I move all Task bars to start at the same date time
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("(itembar(0) = `Task`)",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = "#8/3/2017# - itembar(1)"
End With
.EndUpdate()
End With
|
|
1916
|
How can I change the color for checked Task bars
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
End With
.EndUpdate()
End With
|
|
1915
|
How do I resize all Task bars programatically
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarEnd) = "value + 2"
End With
.EndUpdate()
End With
|
|
1914
|
How do I move just the checked Task bars in the chart
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = -2
End With
.EndUpdate()
End With
|
|
1913
|
How do I move all Task bars in the chart
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarMove) = 1
End With
.EndUpdate()
End With
|
|
1912
|
How do I count all Task bars in the chart
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Tasks")
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
Debug.Print( .ItemBarEx("itembar(0) = `Task`",EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
|
1911
|
How do I select bars whose items are checked
Dim h,hChild
With AxG2antt1
.BeginUpdate()
.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Tasks")
.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
.PartialCheck = True
End With
.HeaderVisible = EXG2ANTTLib.HeaderVisibleEnum.exHeaderVisibleExtendLevels
.SelBackColor = RGB(240,240,240)
.SelForeColor = RGB(0,0,0)
With .Chart
.FirstVisibleDate = #8/1/2017#
.LevelCount = 2
.PaneWidth(False) = 128
With .Bars.Item("Summary")
.StartShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.EndShape = EXG2ANTTLib.ShapeCornerEnum.exShapeIconEmpty
.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeThinDown
End With
.SelBackColor = AxG2antt1.SelBackColor
.SelBarColor = RGB(128,128,128)
End With
With .Items
h = .AddItem("Project")
hChild = .InsertItem(h,Nothing,"Task 1")
.AddBar(hChild,"Task",#8/2/2017#,#8/8/2017#)
.SelectItem(hChild) = True
hChild = .InsertItem(h,Nothing,"Task 2")
.AddBar(hChild,"Task",#8/3/2017#,#8/10/2017#)
.CellState(hChild,0) = 1
hChild = .InsertItem(h,Nothing,"Task 3")
.AddBar(hChild,"Task",#8/4/2017#,#8/12/2017#)
.CellState(hChild,0) = 1
.AddBar(h,"Summary",#8/1/2017#,#8/1/2017#,"sum")
.DefineSummaryBars(h,"sum",-3,"")
.ExpandItem(h) = True
.ItemBarEx("cellstate(0) = 1",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
End With
.EndUpdate()
End With
|
|
1910
|
How can I select all bars, where a specified column matches a specified criteria
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 48
.Chart.SelBarColor = RGB(255,0,0)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
.ItemBarEx("cellcaption(0) = `Task 1`",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
End With
.EndUpdate()
End With
|
|
1909
|
How can I select/unselect all bars
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Task")
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.PaneWidth(False) = 48
.Chart.SelBarColor = RGB(255,0,0)
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"P","P")
.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q")
.AddBar(.AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M")
.ItemBarEx(True,EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected) = True
End With
.EndUpdate()
End With
|
|
1908
|
Is it possible to set the background color of the chart for one item and one day
Dim h
With AxG2antt1
.BeginUpdate()
.Columns.Add("Items")
With .Chart
.LevelCount = 2
.PaneWidth(False) = 96
.FirstVisibleDate = #1/1/2001#
End With
With .Items
.AddItem("Item")
h = .AddItem("Item")
.AddBar(h,"",#1/2/2001#,#1/3/2001#,"Back"," ")
.ItemBar(h,"Back",EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor) = 255
.ItemBar(h,"Back",EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable) = False
.AddItem("Item")
End With
.EndUpdate()
End With
|
|
1907
|
It is possible to search for an item ( inside the Editor ), case insensitive
With AxG2antt1
.BeginUpdate()
With .Columns.Add("DropDownList").Editor
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"One")
.AddItem(2,"Two")
.AddItem(3,"Three")
End With
With .Items
.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">ONE"))
.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">ThRee"))
.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem("ONE"))
.AddItem(AxG2antt1.Columns.Item(0).Editor.FindItem(">tWo"))
End With
.EndUpdate()
End With
|
|
1906
|
The text after the BR-tag is in same line as the text before the BR-tag (entire column)
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
.Chart.PaneWidth(True) = 0
With .Columns.Add("Default")
.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
End With
With .Items
.AddItem("This is the first line.<br>This is the second line.")
.AddItem("This is the first line.<br>This is the second line.")
.AddItem("This is the first line.<br>This is the second line.")
End With
.EndUpdate()
End With
|
|
1905
|
The text after the BR-tag is in same line as the text before the BR-tag (individual)
Dim h
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
.Chart.PaneWidth(True) = 0
.Columns.Add("Default")
With .Items
.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
h = .AddItem("<b>This is the first line.<br>This is the second line.</b>")
.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
.CellSingleLine(h,0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
.CellValueFormat(.AddItem("This is the first line.<br>This is the second line."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
End With
.EndUpdate()
End With
|
|
1904
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
With AxG2antt1
.BeginUpdate()
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
.LevelCount = 2
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
.GetOcx().BackColorAlternate = &H7ff0f0f0
.BackColorLevelHeader = .BackColor
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/12/2001#)
.AddBar(.AddItem("Item 2"),"Task",#1/3/2001#,#1/13/2001#)
.AddBar(.AddItem("Item 3"),"Task",#1/2/2001#,#1/12/2001#)
.AddBar(.AddItem("Item 4"),"Task",#1/3/2001#,#1/13/2001#)
.AddBar(.AddItem("Item 5"),"Task",#1/2/2001#,#1/12/2001#)
End With
.EndUpdate()
End With
|
|
1903
|
Can I disable an item once the user selects a new value into a different item
' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
With AxG2antt1
With .Items
.EnableItem(.ItemByIndex(1)) = False
End With
End With
End Sub
Dim h1,h2
With AxG2antt1
.FreezeEvents(True)
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.ScrollBySingleLine = True
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
.Columns.Add("Q")
.Columns.Add("A")
With .Items
h1 = .AddItem("What's your gender?")
With .CellEditor(h1,1)
.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"Male")
.AddItem(0,"Female")
End With
.CellValue(h1,1) = 1
h2 = .AddItem("What's pet name?")
.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
.CellSingleLine(h2,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
End With
.EndUpdate()
.FreezeEvents(False)
End With
|
|
1902
|
How can I get a row expanded / enlarged to fit the cell's text (entire column)
Dim h1,h2
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.ScrollBySingleLine = True
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
.Columns.Add("Q")
With .Columns.Add("A")
.Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
With .Editor
.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
.Appearance = EXG2ANTTLib.InplaceAppearanceEnum.SingleApp
End With
End With
With .Items
h1 = .AddItem("What's name?")
.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
h2 = .AddItem("What's your pet name?")
.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
End With
.EndUpdate()
End With
|
|
1901
|
How can I get a row expanded / enlarged to fit the cell's text (individual cell)
Dim h1,h2
With AxG2antt1
.BeginUpdate()
.Chart.PaneWidth(True) = 0
.ScrollBySingleLine = True
.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
.Columns.Add("Q")
.Columns.Add("A")
With .Items
h1 = .AddItem("What's name?")
.CellValue(h1,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
h2 = .AddItem("What's your pet name?")
With .CellEditor(h2,1)
.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
.Appearance = EXG2ANTTLib.InplaceAppearanceEnum.SingleApp
End With
.CellValue(h2,1) = "This is my pet favorite long long long name, that shoul break the line in multiple pieces"
.CellSingleLine(h2,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
End With
.EndUpdate()
End With
|